theXlabel = 'Months';
xScale = 0:5;

%%

attitudes = {'Duty to Vote', 'Satisfaction w/ UK Dem.', 'Trust in MPs', 'Internal Efficacy', 'External Efficacy'};

irfDuty = [1	0.195	0.061	0.027	0.014	0.007
    0	0.000	0.007	0.007	0.005	0.003
    0	0.000	-0.002	-0.002	-0.001	-0.001
    0	-0.091	-0.059	-0.032	-0.017	-0.009
    0	0.000	-0.001	-0.001	-0.001	-0.001];

theData = irfDuty;
setupFigure;
plot(xScale, theData(1, :), '-', 'LineWidth',2); hold on;
plot(xScale, theData(2, :), '--', 'LineWidth',2);
plot(xScale, theData(3, :), '-.', 'LineWidth',2);
plot(xScale, theData(4, :), ':', 'LineWidth',2);
plot(xScale, theData(5, :), '-x', 'LineWidth',2);
legend(attitudes, 'Location','best');
finishFigure;
print(gcf, 'irf_besip_duty.eps', '-depsc');

%%

irfSatisfaction = [0	0.014	0.007	0.004	0.002	0.001
    1	0.341	0.124	0.048	0.020	0.009
    0	-0.082	-0.035	-0.012	-0.003	-0.001
    0	0.002	-0.002	-0.003	-0.002	-0.001
    0	-0.051	-0.042	-0.028	-0.017	-0.010];

theData = irfSatisfaction;
setupFigure;
plot(xScale, theData(1, :), '-', 'LineWidth',2); hold on;
plot(xScale, theData(2, :), '--', 'LineWidth',2);
plot(xScale, theData(3, :), '-.', 'LineWidth',2);
plot(xScale, theData(4, :), ':', 'LineWidth',2);
plot(xScale, theData(5, :), '-x', 'LineWidth',2);
legend(attitudes, 'Location','best');
finishFigure;
print(gcf, 'irf_besip_satisf.eps', '-depsc');

%%

irfTrust = [0	0.000	-0.006	-0.004	-0.003	-0.001
    0	-0.034	-0.015	-0.005	-0.002	-0.001
    1	0.133	0.023	0.006	0.002	0.001
    0	0.021	0.012	0.006	0.003	0.002
    0	-0.025	-0.014	-0.007	-0.004	-0.002];

theData = irfTrust;
setupFigure;
plot(xScale, theData(1, :), '-', 'LineWidth',2); hold on;
plot(xScale, theData(2, :), '--', 'LineWidth',2);
plot(xScale, theData(3, :), '-.', 'LineWidth',2);
plot(xScale, theData(4, :), ':', 'LineWidth',2);
plot(xScale, theData(5, :), '-x', 'LineWidth',2);
legend(attitudes, 'Location','best');
finishFigure;
print(gcf, 'irf_besip_trust.eps', '-depsc');

%%

irfInternal = [0	-0.254	-0.165	-0.090	-0.048	-0.025
    0	-0.070	-0.057	-0.037	-0.022	-0.013
    0	0.018	0.016	0.010	0.006	0.003
    1	0.450	0.226	0.117	0.061	0.032
    0	0.010	0.013	0.012	0.009	0.006];

theData = irfInternal;
setupFigure;
plot(xScale, theData(1, :), '-', 'LineWidth',2); hold on;
plot(xScale, theData(2, :), '--', 'LineWidth',2);
plot(xScale, theData(3, :), '-.', 'LineWidth',2);
plot(xScale, theData(4, :), ':', 'LineWidth',2);
plot(xScale, theData(5, :), '-x', 'LineWidth',2);
legend(attitudes, 'Location','best');
finishFigure;
print(gcf, 'irf_besip_internal.eps', '-depsc');

%%

irfExternal = [0	0.001	-0.003	-0.004	-0.003	-0.002
    0	-0.098	-0.083	-0.055	-0.034	-0.020
    0	-0.077	-0.043	-0.021	-0.010	-0.005
    0	0.011	0.009	0.007	0.005	0.003
    1	0.525	0.283	0.154	0.084	0.046];

theData = irfExternal;
setupFigure;
plot(xScale, theData(1, :), '-', 'LineWidth',2); hold on;
plot(xScale, theData(2, :), '--', 'LineWidth',2);
plot(xScale, theData(3, :), '-.', 'LineWidth',2);
plot(xScale, theData(4, :), ':', 'LineWidth',2);
plot(xScale, theData(5, :), '-x', 'LineWidth',2);
legend(attitudes, 'Location','best');
finishFigure;
print(gcf, 'irf_besip_external.eps', '-depsc');
